home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / role / TACL.lha / TACL / JungleSource.zoo / JungleSubs < prev    next >
Text File  |  1989-09-11  |  808b  |  54 lines
  1. *
  2. * Sample T.A.C.L. Adventure Game source code © 1989 by Kevin Kelm
  3. *
  4. SUBROUTINE WeHaveAWinner
  5.  T
  6.  T Congratulations.  Your final score was @Score  out of 113 possible points.
  7. * Should we show a victory pic here?
  8.  EQU Temp 1
  9.  CALL Victory
  10.  WIN
  11. ENDSUB
  12. *
  13. *
  14. *
  15. SUBROUTINE Victory   * Recursively play a victory swoop!
  16.  NOTE Temp 1
  17.  ADD Temp 15
  18.  IF Temp < 520 THEN
  19.   CALL Victory
  20.  ENDIF
  21. ENDSUB
  22. *
  23. *
  24. *
  25. SUBROUTINE BuyTheFarm
  26.  T
  27.  T You have died.  Your final score was @Score  out of 113 possible points.
  28.  SHOW Death
  29.  EQU Temp 500
  30.  CALL BoughtIt
  31.  DIE
  32. ENDSUB
  33. *
  34. *
  35. *
  36. SUBROUTINE BoughtIt  * Recursively play a death swoop down
  37.  NOTE Temp 1
  38.  SUB Temp 15
  39.  IF Temp > 16 THEN
  40.   CALL BoughtIt
  41.  ENDIF
  42. ENDSUB
  43. *
  44. *
  45. *
  46. SUBROUTINE SwimAcross
  47.  EQU CrossedWater 1
  48.  EQU InConnTunn 1
  49.  GO Connecting_Tunnel
  50. ENDSUB
  51. *
  52. * ----- END OF FILE
  53. *
  54.